100 REM YE OLDE SHELL GAME BY SULLIVAN
110 DEF FN D(N)=INT(RND(1)*N)
120 J=RND(-TI): A=15
130 PRINT CHR$(14)
140 GOTO 440
150 REM PRINT TITLE
160 PRINT "[147]" TAB(A) "[211][200][197][204][204] [199][193][205][197]" U$
170 A=15: U$="": RETURN
180 REM GET SKILL LEVEL
190 POKE Z,P: PRINT
200 PRINT TAB(10)"[211]KILL [204]EVEL (1-9): ";
210 GOSUB 330: B=N: K=120+((9-B)^2)*5
220 FOR I=1 TO R: NEXT: RETURN
230 REM DELAY
240 FOR I=1 TO K: NEXT: RETURN
250 REM SHELL LAYOUT
260 FOR I=0 TO 8
270 J=INT(I/3)
280 B(I)=1241+80*J+3*(I-J*3)
290 POKE B(I)+C,1
300 NEXT I
310 RETURN
320 REM NUMERAL INPUT
330 G=1-G
340 FOR J=1 TO 20
350 IF G=1 THEN PRINT "";
360 PRINT "?[157][146]";
370 GET Q$
380 N=VAL(Q$): IF N>0 GOTO 410
390 NEXT J
400 GOTO 330
410 PRINT "[157]" N ""
420 RETURN
430 REM MAINLINE
440 C=54272: E=160: F=170: R=700
450 H=1484: Z=214: P=8: GOSUB 160
460 GOSUB 190: S=0: P=21
470 U$=":  [204]EVEL"+STR$(B): A=10
480 GOSUB 160: GOSUB 260: POKE C+H,1
490 U=FN D(9)
500 V=FN D(9)
510 IF V=U GOTO 500
520 W=FN D(9)
530 IF W=U OR W=V GOTO 520
540 FOR I=0 TO 8
550 A(I)=E
560 IF I=U OR I=V OR I=W THEN A(I)=F
570 POKE B(I),A(I)
580 NEXT I
590 FOR I=1 TO H: NEXT
600 POKE B(U),E:POKE B(V),E:POKE B(W),E
610 FOR I=1 TO R: NEXT
620 M=FN D(2)+8
630 FOR J=1 TO M
640 X=FN D(9): POKE B(X),32
650 T=A(X): POKE H,E: GOSUB 240
660 Y=FN D(9): IF Y=X GOTO 660
670 POKE B(Y),32: A(X)=A(Y)
680 FOR I=1 TO 120: NEXT
690 POKE B(X),E: GOSUB 240
700 POKE H,32: POKE B(Y),E
710 A(Y)=T: GOSUB 240
720 NEXT J
730 FOR I=0 TO 8
740 POKE B(I),177+I
750 NEXT I
760 POKE Z,11: PRINT
770 FOR I=1 TO 3
780 PRINT TAB(18) "*[146] = ?"
790 NEXT I
800 POKE Z,11: PRINT
810 FOR I=1 TO 3
820 PRINT TAB(22);
830 GOSUB 330
840 IF A(N-1)>0 GOTO 860
850 PRINT "[145][145]";: GOTO 820
860 S=S-(A(N-1)=F): A(N-1)=-A(N-1)
870 NEXT I
880 FOR I=0 TO 8
890 IF ABS(A(I))=F THEN POKE B(I),F
900 NEXT I
910 PRINT "" TAB(14) S "OUT OF 3!"
920 PRINT TAB(14) "[193][199][193][201][206][160][160]([217]/[206])?";
930 GET Q$: IF Q$="Y" GOTO 460
940 IF Q$<>"N" GOTO 930
950 GOSUB 160: PRINT